

***Replication File Elsig and Spilker***


use "Mosaich_Daten_final.dta", clear
 
 
 ****Figure 2****
**Control Group
 histogram ES31a_wp2 if treat_control==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Subsidize", size(medium)) subtitle("Control Group", size(medsmall))
graph save "Replication_Material/Graph1.gph", replace


histogram ES31b_wp2 if treat_control==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Tax foreign", size(medium)) subtitle("Control Group", size(medsmall))
graph save "Replication_Material/Graph2.gph", replace
 

histogram ES31c_wp2 if treat_control==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Tax all", size(medium)) subtitle("Control Group", size(medsmall))
graph save "Replication_Material/Graph3.gph", replace 


histogram ES31a_wp2 if treat_WTO_conflict==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Subsidize", size(medium)) subtitle("WTO Conflict", size(medsmall))
graph save "Replication_Material/Graph1_2.gph", replace


histogram ES31a_wp2 if treat_WTO_conf_rep==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Subsidize", size(medium)) subtitle("WTO Conflict + Ret.", size(medsmall))
graph save "Replication_Material/Graph1_3.gph", replace

**First Panel in Figure 2

graph combine "Replication_Material/Graph1.gph" "Replication_Material/Graph1_2.gph" "Replication_Material/Graph1_3.gph", row(1) scheme(s1mono)
 
graph export "Replication_Material/Histogram_Subsidies.pdf", replace



histogram ES31b_wp2 if treat_WTO_conflict==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Tax foreign", size(medium)) subtitle("WTO Conflict", size(medsmall))
graph save "Replication_Material/Graph2_2.gph", replace

histogram ES31b_wp2 if treat_WTO_conf_rep==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Tax foreign", size(medium)) subtitle("WTO Conflict + Ret.", size(medsmall))
graph save "Replication_Material/Graph2_3.gph", replace

**Second Panel in Figure 2

graph combine "Replication_Material/Graph2.gph" "Replication_Material/Graph2_2.gph" "Replication_Material/Graph2_3.gph", row(1) scheme(s1mono)
 
graph export "Replication_Material/Histogram_Tax_Foreigns.pdf", replace



histogram ES31c_wp2 if treat_WTO_conflict==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Tax all", size(medium)) subtitle("WTO conflcit", size(medsmall))
graph save "Replication_Material/Graph3_2.gph", replace 


histogram ES31c_wp2 if treat_WTO_conf_rep==1, discrete percent scheme(s1mono) xtitle("") xlabel(,angle(45) valuelabel) title ("Tax all ", size(medium)) subtitle("WTO Conflict + Ret.", size(medsmall))
graph save "Replication_Material/Graph3_3.gph", replace 

**Third Panel in Figure 2
graph combine "Replication_Material/Graph3.gph" "Replication_Material/Graph3_2.gph" "Replication_Material/Graph3_3.gph", row(1) scheme(s1mono)
 
graph export "Replication_Material/Histogram_Tax_All.pdf", replace




*******Figure 3***********
***Panel 4:

regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Retaliation" 2 "WTO") legend(size(vsmall))
*legend( label(1 "subsidize") label(2 "tax foreign")label (3 "tax all") )


graph save "Replication_Material/Main_Treatment_Effect.gph", replace
graph export "Replication_Material/Main_Treatment_Effect.pdf", replace




****Panel 1 to 3****
****t-tests
**WTO treatment
capture drop group 
 gen group=1 if treat_WTO_conflict==1 
 replace group=0 if treat_control==1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 
 replace group=0 if treat_control==1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
 
 ***results of these ttests were imported to "Replication_Material/marginal_means.xlsx"
 
 ***Creat actual graphs for Panel 1 - 3****
 **tax foreign
import excel "Replication_Material/marginal_means.xlsx", sheet("Tabelle1") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control Group" 2 "WTO" 3 "WTO + Retaliation" ;

#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)3,valuelabel labsize(small) angle(0)) xtitle("Level of Support: Tax foreign climate-damaging products", size(vsmall)) xlabel(3.5(0.2)4.3) ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Graph_tax_foreign_baseline.gph", replace
graph export "Replication_Material/Graph_tax_foreign_baseline.png", replace
 

  **tax all
import excel "Replication_Material/marginal_means.xlsx", sheet("Tabelle2") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control Group" 2 "WTO" 3 "WTO + Retaliation" ;

#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)3,valuelabel labsize(small) angle(0)) xtitle("Level of Support: Tax all climate-damaging products", size(vsmall)) xlabel(3.5(0.2)4.3) ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Graph_tax_all_baseline.gph", replace
graph export "Replication_Material/Graph_tax_all_baseline.png", replace
 


  **subsidize
import excel "Replication_Material/marginal_means.xlsx", sheet("Tabelle3") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control Group" 2 "WTO" 3 "WTO + Retaliation" ;

#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)3,valuelabel labsize(small) angle(0)) xtitle("Level of Support: Subsidize climate-friendly products", size(vsmall)) xlabel(3.5(0.2)4.3) ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Graph_subsidize_baseline.gph", replace
graph export "Replication_Material/Graph_subsidize_baseline.png", replace
 
***create full figure 4*** 
 

graph combine  "Replication_Material/Graph_subsidize_baseline.gph" "Replication_Material/Graph_tax_foreign_baseline.gph" "Replication_Material/Graph_tax_all_baseline.gph" "Replication_Material/Main_Treatment_Effect.gph", scheme(s1mono)

graph export "Replication_Material/Graph_baseline_combined_all.png", replace






***Figure 4: Treatments against each other

use "Replication_Material/Mosaich_Daten_final.dta", clear

regress subsidize i.treat_WTO_conf_rep if ES31_wp2!=0
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep if ES31_wp2!=0
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep if ES31_wp2!=0
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Retaliation" )

graph export "Replication_Material/Treatment_Against_Each_Other.pdf", replace






****Heterogenous treatment effects***


use "Replication_Material/Mosaich_Daten_final.dta", clear
**Figure5
***Free Trade versus Protectionsim
tab E2c
tab E2c, nol
**E2c>3: Free-Traders
**E2c<3:Protectionists

****T-test for difference between groups
***Free-traders
**WTO treatment

capture drop group 
 gen group=1 if treat_WTO_conflict==1 & E2c>3
 replace group=0 if treat_control==1 & E2c>3
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 & E2c>3
 replace group=0 if treat_control==1 & E2c>3
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)



   ****T-test for difference between groups
***Protectionists
**WTO treatment

capture drop group 
 gen group=1 if treat_WTO_conflict==1 & E2c<3
 replace group=0 if treat_control==1 & E2c<3
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 & E2c<3
 replace group=0 if treat_control==1 & E2c<3
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  
****T-test for difference between groups
**WTO treatment
capture drop group 
 gen group=1 if treat_WTO_conflict==1 & E2c>3
 replace group=0 if treat_WTO_conflict==1 & E2c<3
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 & E2c>3
 replace group=0 if treat_WTO_conf_rep==1 & E2c<3
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
   
 
 ***make graph****
 **tax foreign
import excel "Replication_Material/marginal_means_trade.xlsx", sheet("Tabelle1") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control/Free" 2 "Control/Prot" 3 "WTO/Free" 4 "WTO/Prot" 5 "WTO+Ret/Free" 6 "WTO+Ret/Prot";
#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Level of Support: Tax foreign climate-damaging products", size(vsmall)) xlabel(3.0(0.2)4.4)  ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Tax_Foreign_trade.gph", replace
graph export "Replication_Material/Tax_Foreign_trade.pdf", replace



**tax all
import excel "Replication_Material/marginal_means_trade.xlsx", sheet("Tabelle2") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control/Free" 2 "Control/Prot" 3 "WTO/Free" 4 "WTO/Prot" 5 "WTO+Ret/Free" 6 "WTO+Ret/Prot";
#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Level of Support: Tax all climate-damaging products",  size(vsmall)) xlabel(3.0(0.2)4.4) ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Tax_All_trade.gph", replace
graph export "Replication_Material/Tax_All_trade.pdf", replace




**subsidize
import excel "Replication_Material/marginal_means_trade.xlsx", sheet("Tabelle3") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control/Free" 2 "Control/Prot" 3 "WTO/Free" 4 "WTO/Prot" 5 "WTO+Ret/Free" 6 "WTO+Ret/Prot";
#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Level of Support: Subsidize climate-friendly products", size(vsmall))  xlabel(3.0(0.2)4.4)) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Subsidize_trade.gph", replace
graph export "Replication_Material/Subsidize_trade.pdf", replace




 ****comparison between groups
import excel "Replication_Material/marginal_means_trade.xlsx", sheet("Tabelle4") firstrow clear



 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

***all tax foreign subsidies
gen varname_new=1 if varname==3
replace varname_new=2 if varname==2
replace varname_new=3 if varname==1
replace varname_new=4 if varname==6
replace varname_new=5 if varname==5
replace varname_new=6 if varname==4

#delimit ;
label define varlab 1 "WTO+Ret/Tax all"  2 "WTO+Ret/Tax foreign" 3 "WTO+Ret/Subsidize"  6 "WTO/Subsidize" 5 "WTO/Tax foreign" 4 "WTO/Tax all";

#delimit cr

label values varname_new varlab
list


#delimit;
graph twoway (rspike Low High varname_new, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Difference between free traders and protectionists", size(vsmall)) xline(0) ) (scatter varname_new Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Mean_Difference_trade.gph", replace
graph export "Replication_Material/Mean_Difference_trade.pdf", replace



***create full figure 5*** 
 

graph combine  "Replication_Material/Subsidize_trade.gph" "Replication_Material/Tax_Foreign_trade.gph" "Replication_Material/Tax_All_trade.gph"  "Replication_Material/Mean_Difference_trade.gph", scheme(s1mono)


graph export "Replication_Material/Graph_Trade.png", replace


coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Retaliation" 2 "WTO") legend(size(vsmall))



****Climate Action

use "Replication_Material/Mosaich_Daten_final.dta", clear
**Figure6
**Climate Change
tab ES10a_wp2 
tab ES10a_wp2, nol
**ES10a_wp2==1: those favoring climate action
**ES10a_wp2!=1: those not favoring climate action

****T-test for difference between groups
***those favoring climate action
**WTO treatment

capture drop group 
 gen group=1 if treat_WTO_conflict==1 & ES10a_wp2==1
 replace group=0 if treat_control==1 & ES10a_wp2==1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 & ES10a_wp2==1
 replace group=0 if treat_control==1 & ES10a_wp2==1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)



   ****T-test for difference between groups
***those favoring not climate action
**WTO treatment

capture drop group 
 gen group=1 if treat_WTO_conflict==1 & ES10a_wp2!=1
 replace group=0 if treat_control==1 & ES10a_wp2!=1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 & ES10a_wp2!=1
 replace group=0 if treat_control==1 & ES10a_wp2!=1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  

****T-test for difference between the two groups, climate yes and no
**WTO treatment
capture drop group 
 gen group=1 if treat_WTO_conflict==1 & ES10a_wp2==1
 replace group=0 if treat_WTO_conflict==1 & ES10a_wp2!=1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
   
  **WTO+ treatment 
   capture drop group 
 gen group=1 if treat_WTO_conf_rep==1 & ES10a_wp2==1
 replace group=0 if treat_WTO_conf_rep==1 & ES10a_wp2!=1
 
 ttest subsidize, by(group)
  ttest tax_foreign, by(group)
   ttest tax_all, by(group)
 
   
   
 
 ***make graph****
 **tax foreign
import excel "Replication_Material/marginal_means_climate_Change.xlsx", sheet("Tabelle1") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control/CC yes" 2 "Control/CC no" 3 "WTO/CC yes" 4 "WTO/CC no" 5 "WTO+Ret/CC yes" 6 "WTO+Ret/CC no";

#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Level of Support: Tax foreign climate-damaging products", size(vsmall)) xlabel(3.2(0.2)4.4)  ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Tax_Foreign_CC.gph", replace
graph export "Replication_Material/Tax_Foreign_CC.pdf", replace



**tax all
import excel "Replication_Material/marginal_means_climate_Change.xlsx", sheet("Tabelle2") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control/CC yes" 2 "Control/CC no" 3 "WTO/CC yes" 4 "WTO/CC no" 5 "WTO+Ret/CC yes" 6 "WTO+Ret/CC no";

#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Level of Support: Tax all climate-damaging products",  size(vsmall)) xlabel(3.2(0.2)4.4) ) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Tax_All_CC.gph", replace
graph export "Replication_Material/Tax_All_CC.pdf", replace




**subsidize
import excel "Replication_Material/marginal_means_climate_Change.xlsx", sheet("Tabelle3") firstrow clear


 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list

#delimit ;
label define varlab 1 "Control/CC yes" 2 "Control/CC no" 3 "WTO/CC yes" 4 "WTO/CC no" 5 "WTO+Ret/CC yes" 6 "WTO+Ret/CC no";

#delimit cr

label values varname varlab
list


#delimit;
graph twoway (rspike Low High varname, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Level of Support: Subsidize climate-friendly products", size(vsmall))  xlabel(3.2(0.2)4.4)) (scatter varname Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Subsidize_CC.gph", replace
graph export "Replication_Material/Subsidize_CC.pdf", replace




 ****comparison between groups
import excel "Replication_Material/marginal_means_climate_Change.xlsx", sheet("Tabelle4") firstrow clear



 destring Mean, replace
 destring Low, replace
  destring High, replace
 

gen varname=_n
list


***all tax foreign subsidies
gen varname_new=1 if varname==3
replace varname_new=2 if varname==2
replace varname_new=3 if varname==1
replace varname_new=4 if varname==6
replace varname_new=5 if varname==5
replace varname_new=6 if varname==4

#delimit ;
label define varlab 1 "WTO+Ret/Tax all"  2 "WTO+Ret/Tax foreign" 3 "WTO+Ret/Subsidize"  6 "WTO/Subsidize" 5 "WTO/Tax foreign" 4 "WTO/Tax all";

#delimit cr

label values varname_new varlab
list

****Farben ändern...

#delimit;
graph twoway (rspike Low High varname_new, horizontal ytitle("")ylabel(1(1)6,valuelabel labsize(vsmall) angle(0)) xtitle("Difference between those favoring and not favoring climate action", size(vsmall)) xline(0)) (scatter varname_new Mean, mcolor(black) msymbol(circle) msize(vsmall) ytitle("")), title("", size(medsmall))legend(off) scheme(s1manual);
#delimit cr
graph save "Replication_Material/Mean_Difference_CC.gph", replace
graph export "Replication_Material/Mean_Difference_CC.pdf", replace



***create full figure 6*** 
 

graph combine  "Replication_Material/Subsidize_CC.gph"  "Replication_Material/Tax_Foreign_CC.gph" "Replication_Material/Tax_All_CC.gph" "Replication_Material/Mean_Difference_CC.gph", scheme(s1mono)

graph export "Replication_Material/Graph_Climate_Change.png", replace




******APPENDIX****************

use "Replication_Material/Mosaich_Daten_final.dta", clear

*Figure A.1 : Cosmopolitan/Not Cosmopolitan

****ES18c_wp2: Feel connected to people from all over the world

tab ES18c_wp2
tab ES18c_wp2, nol



regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if ES18c_wp2<3
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if ES18c_wp2<3
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if ES18c_wp2<3
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Cosmopolitan) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure20", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if ES18c_wp2>2
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if ES18c_wp2>2
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if ES18c_wp2>2
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Not cosmopolitan) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure21", replace

graph combine "Replication_Material/Figure20" "Replication_Material/Figure21", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Cosmopolitan.pdf", replace


*Figure A.2 : Urban/rural

*** Urban Rural
tab UrbRur2012
tab UrbRur2012, nol



regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if UrbRur2012==1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if UrbRur2012==1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if UrbRur2012==1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Urban) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure13", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if UrbRur2012!=1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if UrbRur2012!=1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if UrbRur2012!=1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title ((Semi-) Rural) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure14", replace

graph combine "Replication_Material/Figure13" "Figures_Dec_2023/Figure14", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Urban.pdf", replace



**Figure A.3: Free trade vs. protectionists


***Free Trade versus Protectionsim
tab E2c
tab E2c, nol



regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if E2c>3
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if  E2c>3
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if  E2c>3
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Free-Traders) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure30", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if E2c<3
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if E2c<3
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if E2c<3
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Protectionists) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure31", replace

graph combine "Replication_Material/Figure30" "Replication_Material/Figure31", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Protectionism.pdf", replace


***Figure A.4: Favoring action on climate change

tab ES10a_wp2 
tab ES10a_wp2, nol


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if ES10a_wp2==1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if ES10a_wp2==1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if ES10a_wp2==1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Favoring state action on CC) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure1", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if ES10a_wp2!=1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if ES10a_wp2!=1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if ES10a_wp2!=1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Not favoring state action on CC) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure2", replace

graph combine "Replication_Material/Figure1" "Replication_Material/Figure2", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Climate.pdf", replace


***Figure A.5 Retired/in paid work


tab WORK3
tab WORK3, nol



regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if WORK3==1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if   WORK3==1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if  WORK3==1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (In paid work) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure50", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if WORK3==6
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if WORK3==6
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if WORK3==6
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Retired) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure51", replace

graph combine "Replication_Material/Figure50" "Replication_Material/Figure51", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Retired_PaidWork.pdf", replace


***Figure A.6: trust in parliament

***E5d: Trust in institutions: parliament 
tab E5d
tab E5d, nol


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if E5d>5
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if E5d>5
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if E5d>5
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Trust parliament high) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure24", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if E5d<6
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if E5d<6
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if E5d<6
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Trust in parliament low) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure25", replace

graph combine "Replication_Material/Figure24" "Replication_Material/Figure25", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Trust_Parliament.pdf", replace


****Figure A.7: political interest

***Political Interest
tab POL1

regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if POL1==1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if POL1==1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if POL1==1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Political Interest High) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure3", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if POL1!=1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if POL1!=1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if POL1!=1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Political Interest Low) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure4", replace

graph combine "Replication_Material/Figure3" "Replication_Material/Figure4", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Pol_Int.pdf", replace



****Figure A.8: gender
***Gender
tab DEMO1
regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if DEMO1==1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if DEMO1==1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if DEMO1==1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Male Respondents) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure5", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if DEMO1!=1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if DEMO1!=1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if DEMO1!=1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Female Respondents) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure6", replace

graph combine "Replication_Material/Figure5" "Replication_Material/Figure6", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Gender.pdf", replace


***Figure A.9: education
tab educ_high

regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if educ_high==1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if educ_high==1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if educ_high==1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (High Education Level) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure7", replace


regress subsidize i.treat_WTO_conf_rep i.treat_WTO_conflict if educ_high!=1
estimate store subsidize

regress tax_foreign i.treat_WTO_conf_rep i.treat_WTO_conflict if educ_high!=1
estimate store tax_foreign

regress tax_all i.treat_WTO_conf_rep i.treat_WTO_conflict if educ_high!=1
estimate store tax_all

coefplot subsidize tax_foreign tax_all, drop(_cons)xline(0) labels byopts(row(1)) scheme(s1mono) ylabel(1 "WTO + Ret." 2 "WTO") title (Low Education Level) xlabel(-1(0.5)0.5)

graph save "Replication_Material/Figure8", replace

graph combine "Replication_Material/Figure7" "Replication_Material/Figure8", scheme(s1mono)

graph export "Replication_Material/Treatment_Effect_Cond_Education.pdf", replace





